BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/F/FilmPro.cpt/FilmPro/background_2711.txt

Text File | 1988-04-17 | 14.3 KB | 705 lines

-- background: 2711 from stack: in
-- bmap block id: 3227
-- flags: 4000
-- background id: 0
-- name: FilmPro
----- HyperTalk script -----
on openstack
  hide background field "hidden keywords"
  hide bkgnd  button "done"
  hide bkgnd field "hidden about"
end openstack

on closestack
  if the freesize of this stack > 0.15 * the size of this stack then
    set cursor to 4
    domenu "compact stack"
  end if
end closestack




-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=253 top=25 right=58 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Keywords
----- HyperTalk script -----
on mouseUp
  beep
  answer "There is no point in entering Keywords here."

end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=301 top=27 right=56 bottom=331
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: find
----- HyperTalk script -----
on mouseUp
  beep
  answer "You should go to the appropriate stack first."
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=340 top=25 right=56 bottom=375
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  beep
  answer "This stack has no cards to sort."

end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0003
-- rect: left=427 top=30 right=54 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 10610 / 10610
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dial
----- HyperTalk script -----
on mouseUp
  beep
  Answer "There is nobody to dial on this card."
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=212 top=28 right=56 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Button Help
----- HyperTalk script -----

on mouseup
  push this card
  set cursor to 4
  visual effect barn door open
  go to stack "FilmPro Help"
end mouseup



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=465 top=24 right=57 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print
----- HyperTalk script -----
on mouseUp
  play harpsichord
  answer "Proceed with Printing?" with "This Card" or "This Stack" or "Cancel"
  if it is "This Card" then domenu "Print card"
  else if it is "This Stack" then domenu "Print stack..."
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=3 top=218 right=254 bottom=39
-- title width / last selected line: 65535
-- icon id / first selected line: -15743 / 49793
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Crews Stack Button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  hide bkgnd field "hidden about"
  push this card
  visual effect dissolve  to white
  visual effect dissolve
  go to stack "crews"
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=0 top=261 right=294 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 9761 / 9761
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Locations Stack Button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  hide bkgnd field  "hidden about"
  push card
  visual effect dissolve  to white
  visual effect dissolve
  go to stack "Locations"
end mouseUp




-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=0 top=57 right=92 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 2002 / 2002
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Client Stack Button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  hide bkgnd field "hidden about"
  push this card
  visual effect dissolve  to white
  visual effect dissolve
  go to stack "Clients"
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=47 top=301 right=331 bottom=79
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: return
----- HyperTalk script -----
on mouseUp
  visual effect wipe left fast to black
  visual effect wipe right fast
  pop card
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=7 top=183 right=210 bottom=35
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Memo
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  hide bkgnd field "hidden about"
  push this card
  visual effect dissolve  to white
  visual effect dissolve
  go to last card in stack memos
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=3 top=139 right=171 bottom=40
-- title width / last selected line: 0
-- icon id / first selected line: 18814 / 18814
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Call Sheets
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  hide bkgnd field "hidden about"
  push this card
  visual effect dissolve  to white
  visual effect dissolve
  go to last card in  stack Call Sheets
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=0 top=95 right=133 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: jobs stack button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  hide bkgnd field "hidden about"
  push this card
  visual effect dissolve  to white
  visual effect dissolve
  go to last card in stack Job File
end mouseUp



-- part 20 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=208 top=24 right=58 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hidden keywords


-- part 22 (field)
-- low flags: 80
-- high flags: 2007
-- rect: left=148 top=91 right=272 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hidden about


-- part 23 (button)
-- low flags: 00
-- high flags: 2001
-- rect: left=427 top=92 right=128 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 1 / 1
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TELL ABOUT
----- HyperTalk script -----
on mouseUp
  set scroll of bkgnd field "hidden about" to 1
  show bkgnd field "hidden about"
  show bkgnd button "done"

end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=147 top=277 right=307 bottom=222
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Job
----- HyperTalk script -----
on mouseUp
  push this card
  set cursor to 4
  set lockscreen to true
  go  stack Job File
  sort numeric by bkgnd field "job #"
  domenu "last"
  set lockscreen to false
  put bkgnd field "job #" into holder
  add 1 to holder
  play harpsichord
  ask "The next job # will be... " with holder
  put it into holder2
  if holder2 is empty then
    exit mouseup
  else if holder2 is not empty then

    visual effect scroll left to black
    visual effect scroll left
    domenu "new card"
    put holder2 into bkgnd field "job #"
    play harpsichord
    answer "Save this new job # ?" with "Delete" or "Save"
    if it is "delete" then
      set lockscreen to true
      domenu "delete card"
      go to previous card
      set lockscreen to false
    else if it is "Save" then
      get the loc of bkgnd field "job #"
      click at it
      tabkey
    end if
  end if
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=325 top=277 right=307 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Old Job
----- HyperTalk script -----
on mouseUp
  push this card
  play harpsichord
  ask "Please Enter Job #"

  if it is empty then
    exit mouseup
  end if

  if it is not empty then
    put it into holder
    set lockscreen to true
    set cursor to 4
    go to stack job file
    find holder in bkgnd field "job #"

    if the result is not empty then
      play boing
      answer "Can't Find That Job #"
      set cursor to 4
      pop card
      set lockscreen to false
    end if
  end if


end mouseUp



-- part 26 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=245 top=272 right=292 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Done
----- HyperTalk script -----
on mouseUp
  hide bkgnd button "done"
  hide bkgnd field "hidden about"
  set the scroll of bkgnd field "hidden about" to 1
end mouseUp




-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=385 top=24 right=58 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 1004 / 1004
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Letter
----- HyperTalk script -----
on mouseup
  beep
  answer "You should go to the appropriate stack first."

end mouseup



-- part 29 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=1 top=301 right=337 bottom=41
-- title width / last selected line: 0
-- icon id / first selected line: 17343 / 17343
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Applications
----- HyperTalk script -----
on mouseUp
  hide bkgnd field "hidden about"
  play harpsichord
  ask "Which application would you like to open?"
  if it is not empty then
    suspend
    open it
  else if it is empty then
    exit mouseup
  end if

end mouseUp



-- part 40 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=76 top=29 right=54 bottom=178
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OKAY
----- HyperTalk script -----
on mouseUp
  hide bkgnd button "OKAY"
  hide bkgnd field "bugs headline"
  hide bkgnd field "bugs"
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=2 top=23 right=52 bottom=41
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  push this card
  visual effect dissolve   to white
  visual effect dissolve
  go home
end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: A001
-- rect: left=428 top=135 right=182 bottom=466
-- title width / last selected line: 0
-- icon id / first selected line: 2 / 2
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bugs!
----- HyperTalk script -----
on mouseUp
  hide bkgnd field "hidden about"
  hide bkgnd button "done"
  play boing
  show bkgnd  button "okay"
  show bkgnd field "bugs headline"
  show bkgnd field "bugs"


end mouseUp



-- part 37 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=62 top=90 right=114 bottom=129
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Vendors
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  hide bkgnd field "hidden about"
  push this card
  visual effect dissolve  to white
  visual effect dissolve
  go to stack "Vendors"
end mouseUp



-- part 38 (field)
-- low flags: 80
-- high flags: 2007
-- rect: left=43 top=58 right=336 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bugs


-- part 39 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=208 top=24 right=58 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 22
-- part name: bugs headline


-- part 44 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=43 top=24 right=286 bottom=279
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Crew List
----- HyperTalk script -----

on mousedown
  set the lockText of me to false
  put empty into message box
end mousedown

on mouseup

  hide message box
  set the locktext of me to true
  if the message box is empty then
    beep
    answer "Press Command Key during name selection."
    repeat 5
      hide card field "click on name"
      show card field "click on name"
    end repeat

    exit mouseup
  end if
  get message
  put it & return after bkgnd field "job crew list"
end mouseup





-- part 45 (field)
-- low flags: 80
-- high flags: 2007
-- rect: left=279 top=24 right=286 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Job Crew List